#!
#the first hello program
print "give a number:\nNumber:";
$number = <STDIN>;
chomp $number;
$mynum = int(rand 10);

if( $number > $mynum)
{
	print "you guess too high";
}
elsif($number < $mynum)
{
	print "you guess too low";
}
else
{
	print "bingo!"
}
print "\nmy number is:$mynum\n";